home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / lisp / oobr / tree-x / dbl.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-08-26  |  10.6 KB  |  378 lines
  1. /* ----------------------------------------------------------------------------
  2.  *     Double buffering code
  3.  * ----------------------------------------------------------------------------
  4.  */
  5.  
  6.  
  7. #include "dbl.h"
  8.  
  9. struct {                                               
  10.     unsigned short red;                                        
  11.     unsigned short green;
  12.     unsigned short blue;
  13. } color[] = {
  14.     { 65280, 65280, 65280 }, /* white  */                      
  15.     {     0,     0, 65280 }, /* blue   */
  16.     {     0, 65280,     0 }, /* green  */
  17.     { 65280,     0,     0 }, /* red    */
  18.     { 42240, 10752, 10752 }, /* brown  */
  19.     { 65280, 32512,     0 }, /* orange */
  20.     { 32512, 32512, 32512 }, /* gray   */
  21.     {     0,     0,     0 }  /* black  */
  22. };                       
  23.  
  24. /* ------------------------------------------------------------------------- */
  25.  
  26. DoubleBuffer *
  27. DBLcreate_double_buffer (display, window, backing_store, colors, num_colors)
  28.    Display *display;
  29.    Window   window;
  30.    int      backing_store;
  31.    XColor  *colors;
  32.    int      num_colors;
  33. {                                                                
  34.    int i, j, k, l, m, offset, mask, size;
  35.    int max_planes;
  36.  
  37.    char         *string;
  38.    Surface     *surface;
  39.    DoubleBuffer     *db;
  40.    XGCValues       xgcv;
  41.    unsigned long   xgcvmask;
  42.  
  43. /* allocate the double buffer structure,  and then open the display */
  44.  
  45.    if ((db = (DoubleBuffer *)calloc(1, sizeof(DoubleBuffer))) == 0) {
  46.       printf("DBLopen_double_buffer : memory allocation error\n");
  47.       return (NULL);
  48.    }                                                          
  49.  
  50. /* note the display */
  51.  
  52.    db->display  = display;
  53.  
  54. /* first some information about our display */
  55.  
  56.    db->screen   = DefaultScreenOfDisplay(db->display);
  57.    db->window   = window;
  58.  
  59. /* now get some information on color resources */
  60.  
  61.    db->visual   = DefaultVisualOfScreen(db->screen);
  62.    db->depth    = DefaultDepthOfScreen(db->screen);
  63.    db->colormap = DefaultColormapOfScreen(db->screen);
  64.  
  65. /* set up colors */
  66.  
  67.    for (i = 0 ; i < num_colors; i++) {
  68.       color[i].red   = colors[i].red;
  69.       color[i].green = colors[i].green;
  70.       color[i].blue  = colors[i].blue;
  71.    }
  72.    
  73. /* see if the user wanted to limit the number of planes used
  74.    then see how many are available,  make it a multiple of 2 */
  75.  
  76.    if ((string = getenv("DBL_MAX_PLANES")) == NULL)
  77.       max_planes = DBL_MAX_PLANES;
  78.    else {
  79.       max_planes = atoi(string);
  80.    }
  81.  
  82.    if ((db->num_planes = PlanesOfScreen(db->screen)) > max_planes) {
  83.       db->num_planes = max_planes;
  84.    }
  85.  
  86.    db->num_planes = (db->num_planes >> 1) << 1;
  87.  
  88.  
  89. /* otherwise allocate contiguous planes to do double buffering */
  90.  
  91.    while (db->num_planes >= DBL_MIN_PLANES) {
  92.       if (XAllocColorCells (db->display, db->colormap, 1, db->planes,
  93.                 db->num_planes, db->pixels, 1)) {
  94.      break;
  95.       }
  96.  
  97.       db->num_planes -= 2;
  98.    }
  99.  
  100. /* if we have at least minimum planes, then we can do double
  101.    buffering and we want to setup our surfaces and colormaps */
  102.  
  103.    if (db->num_planes < DBL_MIN_PLANES)
  104.       db->num_surfaces = 0;
  105.    else {
  106.       db->num_colors   = 1 << (db->num_planes >> 1);
  107.       db->num_surfaces = DBL_MAX_SURFACES;
  108.  
  109.    /* if the number of colors is less than DBL_MAX_COLORS,
  110.       then we want to make sure black is the  last  color */
  111.  
  112.       for (i = db->num_colors - 1; i < DBL_MAX_COLORS; i++) {
  113.          color[i].red   = color[DBL_MAX_COLORS - 1].red;
  114.          color[i].green = color[DBL_MAX_COLORS - 1].green;
  115.          color[i].blue  = color[DBL_MAX_COLORS - 1].blue;
  116.       }
  117.  
  118.    /* we have a set of contiguous planes.  compute a mask for
  119.       the planes,  and figure out the offset in the  hardware */
  120.  
  121.       for (i = 0; i < db->num_planes; i++) {
  122.          db->mask |= db->planes[i];
  123.       }
  124.  
  125.       mask   = db->mask;
  126.       offset = 0;
  127.  
  128.       while ((mask & 1) == 0) {
  129.          mask = mask >> 1;
  130.          offset = offset + 1;
  131.       }
  132.  
  133.       mask = (1 << (db->num_planes >> 1)) - 1;                             
  134.  
  135.    /* now create the surfaces that will contain plane mask and
  136.       colormap information that we use to do double  buffering */
  137.  
  138.       for (i = 0; i < db->num_surfaces; i++) {
  139.          size = sizeof(Surface) + sizeof(XColor) * (1 << db->num_planes);
  140.  
  141.          if ((surface = (Surface *)malloc(size)) != NULL)
  142.             db->surface[i] = surface;
  143.          else {
  144.             printf("DBLcreate_double_buffer : memory allocation error\n");
  145.             DBLdelete_double_buffer(db);
  146.             return(NULL);
  147.          }
  148.  
  149.          surface->offset     = offset + i * (db->num_planes >> 1);
  150.          surface->mask       = mask << surface->offset;
  151.          surface->num_colors = 1 << db->num_planes;
  152.   
  153.       /* compute our pixel values by taking every permutation
  154.          of the pixel and planes returned by XAllocColorCells */
  155.  
  156.          for (j = 0; j < (surface->num_colors); j++) {
  157.             surface->color[j].pixel = db->pixels[0];
  158.          }
  159.  
  160.          for (j = 0; j < db->num_planes; j++) {
  161.             for (k = (1 << j); k < (surface->num_colors); k += (2 << j)) {
  162.                for (l = k; l < (k + (1 << j)); l++) {                  
  163.                   surface->color[l].pixel |= db->planes[j];
  164.                }
  165.             }
  166.          }
  167.  
  168.        /* now populate those pixels with the proper  colors  so             
  169.           that we can do animation by banging in a new colormap */
  170.  
  171.          for (j = 0; j < surface->num_colors; j++) {
  172.             k = (j & surface->mask) >> surface->offset;
  173.  
  174.             surface->color[j].red   = color[k].red;                 
  175.             surface->color[j].green = color[k].green;
  176.             surface->color[j].blue  = color[k].blue;
  177.  
  178.             surface->color[j].flags = DoRed | DoGreen | DoBlue;
  179.          }
  180.       }
  181.  
  182.       db->current_surface = 0;
  183.    }
  184.  
  185.  
  186. /* now figure out what pixel values we will use to draw with
  187.    and store them in the double buffer structure */
  188.  
  189.    if (db->num_surfaces == 0) {
  190.       db->num_colors = DBL_MAX_COLORS;
  191.       db->colors[0]  = WhitePixelOfScreen(db->screen);
  192.  
  193.       for (i = 1; i < db->num_colors; i++) {
  194.      db->colors[i] = BlackPixelOfScreen(db->screen);
  195.       }
  196.    }
  197.    else {
  198.       for (i = 0; i < db->num_colors; i++) {
  199.          j = (i << (db->num_planes >> 1)) + i;
  200.          db->colors[i] = db->surface[0]->color[j].pixel;
  201.       }
  202.    }
  203.  
  204. /* fill out the remaining colors with the last color */
  205.  
  206.    for (; i < DBL_MAX_COLORS; i++) {
  207.       db->colors[i] = db->colors[db->num_colors - 1];
  208.    }
  209.  
  210.    db->width   = WidthOfScreen(db->screen);
  211.    db->height  = HeightOfScreen(db->screen);
  212.  
  213. /* if there are no surfaces then we are doing animation with
  214.    a frame buffer,  so create a pixmap as our frame buffer   */
  215.                          
  216.    if (db->num_surfaces > 0)
  217.       db->drawable = db->window;   
  218.    else {
  219.       db->frame = XCreatePixmap(db->display, db->window,
  220.                 db->width, db->height, db->depth);
  221.       db->drawable = db->frame;
  222.    }                                                                    
  223.  
  224. /* if they have requested backing store,  then create an extra
  225.    pixmap which we can use as backing store to handle exposures */
  226.  
  227.    if (backing_store) {
  228.       db->backing = XCreatePixmap(db->display, db->window,
  229.                   db->width, db->height, db->depth);
  230.    }                                                   
  231.  
  232. /*  use the 0 pixel from one of the surfaces for the background */
  233.  
  234.    xgcv.background = DBLinq_background(db);
  235.    xgcv.line_style = LineSolid;
  236.    xgcv.line_width = 0;
  237.    xgcv.cap_style  = CapButt;
  238.    xgcv.join_style = JoinRound;
  239.    xgcvmask = GCBackground | GCLineStyle | GCLineWidth | GCCapStyle | 
  240.               GCJoinStyle;
  241.    
  242.    db->gc = XCreateGC(db->display, db->drawable, xgcvmask, &xgcv);
  243.  
  244. /* do an initial frame to setup the colormap,  and return */
  245.  
  246.    DBLbegin_frame(db);
  247.    DBLend_frame(db, 1);
  248.    return (db);
  249. }
  250.  
  251. /* ------------------------------------------------------------------------- */
  252.  
  253. void
  254. DBLdelete_double_buffer (db)
  255.      DoubleBuffer *db;
  256. {
  257.   int i;
  258.  
  259.   /* remove and and all surfaces that are out there */
  260.   
  261.   for (i = 0; i < DBL_MAX_SURFACES; i++) {
  262.     if (db->surface[i] != 0) {
  263.       free(db->surface[i]);                               
  264.     }
  265.   }
  266.  
  267.   /* now clean up the various resources used for this double buffer */
  268.   
  269.   if (db->frame != 0) {
  270.     XFreePixmap(db->display, db->frame);
  271.   }
  272.   
  273.   if (db->backing != 0) {
  274.     XFreePixmap(db->display, db->backing);
  275.   }
  276.   
  277.   /* if we created our own private colormap,  then free the colormap */
  278.   
  279.   if (db->colormap != DefaultColormapOfScreen(db->screen)) {
  280.     XFreeColormap(db->display, db->colormap);
  281.   }
  282.   
  283.   free (db);
  284. }
  285.  
  286. /* ------------------------------------------------------------------------- */
  287.  
  288. unsigned long
  289. DBLinq_background(db)
  290.    DoubleBuffer *db;
  291. {
  292.    if (db->num_surfaces > 0)
  293.       return(db->surface[0]->color[0].pixel);
  294.    else 
  295.       return(WhitePixelOfScreen(db->screen));
  296. }
  297.  
  298. /* ------------------------------------------------------------------------- */
  299.  
  300. DBLbegin_frame(db)
  301.      DoubleBuffer *db;
  302. {
  303.   Surface   *surface;
  304.   
  305.   /* there will be at most two surfaces optimize with "&"*/
  306.   
  307.   if (db->num_surfaces > 0) {                       
  308.     db->current_surface = (db->current_surface + 1) & 1;                  
  309.     surface = db->surface[db->current_surface];
  310.   }
  311.    
  312.   /* clear the back surface of the window which may actually be a pixmap */ 
  313.   
  314.   if (db->num_surfaces > 0) 
  315.     XSetPlaneMask (db->display, db->gc, surface->mask);
  316.   
  317.   /* clear out the back surface or frame buffer as appropriate */
  318.   
  319.   XSetFunction(db->display, db->gc, GXclear);
  320.   XFillRectangle(db->display, db->drawable, db->gc,
  321.          0, 0, db->width, db->height);
  322.   
  323.   /* set writing mode back to copy */
  324.   XSetFunction (db->display, db->gc, GXcopy);
  325.   
  326.   XSync(db->display, False);
  327. }  
  328.          
  329.  
  330. /* ------------------------------------------------------------------------- */
  331.                                             
  332.  
  333. DBLend_frame(db, init)
  334.      DoubleBuffer *db;                                                   
  335.      short init;
  336. {
  337.   Surface  *surface;
  338.   
  339.   /* if there are no drawing surfaces,  then we are doing animation   
  340.      with a frame buffer, copy the frame buffers to their viewports */
  341.  
  342.   if (db->num_surfaces == 0) {
  343.      if (! init)
  344.         XCopyArea (db->display, db->frame, db->window,
  345.                db->gc, 0,0, db->width, db->height, 0,0);
  346.   } else {
  347.     
  348.     /* otherwise,  we can flip the surface by banging in the new colormap */
  349.  
  350.     XSync(db->display, False);
  351.     surface = db->surface[db->current_surface];
  352.     XStoreColors (db->display, db->colormap,
  353.           surface->color, surface->num_colors);
  354.   }
  355.  
  356.   if (db->backing != 0) {
  357.     XCopyArea (db->display, db->window, db->backing,
  358.            db->gc, 0,0, db->width, db->height, 0,0);
  359.   }
  360.   
  361.   /* make sure this all goes off to the server,  right away */
  362.   
  363.   XSync(db->display, False);
  364. }
  365.  
  366.  
  367.  
  368.  
  369.  
  370.  
  371.  
  372.  
  373.  
  374.  
  375.  
  376.  
  377.  
  378.